home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
ques_221.zip
/
SAMPLES.ZIP
/
DATABASE.ZIP
/
Q-NEW1.Q-A
< prev
next >
Wrap
Text File
|
1991-03-01
|
8KB
|
510 lines
:top
gotolabel main
:Main
Displayfile q-einlei
:Frage
changecolor 7
display " If you want to fill in the questions, then please|"
display " type '"
changecolor 14
display "YES"
changecolor 7
display "'. Type '"
changecolor 14
display "NO"
changecolor 7
display "' to abort the registration! : "
changecolor 14
ask 4 1
if 1 = "yes"
setvar 1 = ""
gotolabel weiter
endif
if 1 = "no"
gotolabel cancel
endif
gotolabel frage
:
:weiter
changecolor 7
let erroron = off
display " Please wait..."
checkdata dat-1 31
if 31 = "1"
loaddata dat-1 1
loaddata dat-2 2
loaddata dat-3 3
loaddata dat-4 4
loaddata dat-5 5
loaddata dat-6 6
loaddata dat-7 7
loaddata dat-8 8
loaddata dat-9 9
loaddata dat-10 10
loaddata dat-11 11
loaddata dat-12 12
endif
let erroron = on
Displayfile q-1st
if 31 = "1"
display " Please wait..."
gosublabel allready
gotolabel ask
endif
changecolor 15 1
:001----name
display "7H"
askedit 34 1
if 1 = ""
beep
gotolabel 001----name
endif
:002----strasse
display "7H"
askedit 34 2
if 2 = ""
beep
gotolabel 002----strasse
endif
:003----ort
display "7H"
askedit 34 3
if 3 = ""
beep
gotolabel 003----ort
endif
:004----tel.
display "7H"
askedit 34 4
if 4 = ""
beep
gotolabel 004----tel.
endif
:---- alter
display "7H"
askedit 3 5
:---- computertyp
display "7H"
askedit 34 6
:---- modemtyp
display "37H"
askedit 34 7
:---- terminalpgm
display "37H"
askedit 34 8
:---- woher kennst du mich
display "37H"
askedit 34 9
:---- bist du sysop
:sysop
display "37H"
getchoice YN 10
if 10 = "Y"
displayfile q-sysop
:---- Node-nr.
changecolor 15 1
display "37H"
askedit 34 11
:---- tel.nr data
display "37H"
askedit 34 12
endif
:
:Ask
display "10H"
changecolor 7 0
Display "Did you enter everything correctly (Y/N) ? "
Getchar 30
display "||"
if 30 = "Y"
displayfile q
gotolabel end
endif
if 30 = "N"
displayfile q
gotolabel new
endif
ifnot 30 = "Y"
beep
beep
display " Wrong choise. Only 'Y' or 'N' are valid choises..."
pause 2
displayfile q
gotolabel Ask
endnotif
:
:end
if 31 = "1"
displayfile q-all
endif
if 31 = "0"
Displayfile q-ende
endif
Ask 0 31
display "|Now saving your data, please wait"
OutputAnswer ""
PostInfo
let erroron = off
OutputAnswer "Name...............: " 1
OutputAnswer "Adress.............: " 2
OutputAnswer "Code / City........: " 3
OutputAnswer "Telephone..........: " 4
OutputAnswer "Age................: " 5
OutputAnswer "Computertype.......: " 6
OutputAnswer "Modemtype..........: " 7
OutputAnswer "Terminalprogram....: " 8
OutputAnswer "Got bbs from.......: " 9
display "."
writedata dat-1 1
display "."
writedata dat-2 2
display "."
writedata dat-3 3
display "."
writedata dat-4 4
display "."
writedata dat-5 5
display "."
writedata dat-6 6
display "."
writedata dat-7 7
display "."
writedata dat-8 8
display "."
writedata dat-9 9
display "."
writedata dat-10 10
if 10 = "Y"
OutputAnswer "Sysop..............: " 10
OutputAnswer "Node-Nr............: " 11
OutputAnswer "Telephone BBS......: " 12
OutputAnswer ""
writedata dat-11 11
writedata dat-12 12
endif
let erroron = on
display "|"
start q-new last
:
:new
displayfile q-abc
display "10H"
changecolor 7 0
if 10 = "N"
Display "Which line do you wish to change ( A-J ) ? "
endif
if 10 = "Y"
Display "Which line do you wish to change ( A-L ) ? "
displayfile q-kl
endif
display "53H"
Getchar 30
if 30 = "a"
displayfile q
gotolabel 101
endif
if 30 = "b"
displayfile q
gotolabel 102
endif
if 30 = "c"
displayfile q
gotolabel 103
endif
if 30 = "d"
displayfile q
gotolabel 104
endif
if 30 = "e"
displayfile q
gotolabel 105
endif
if 30 = "f"
displayfile q
gotolabel 106
endif
if 30 = "g"
displayfile q
gotolabel 107
endif
if 30 = "h"
displayfile q
gotolabel 108
endif
if 30 = "i"
displayfile q
gotolabel 109
endif
if 30 = "j"
displayfile q
gotolabel 110
endif
if 30 = "k"
displayfile q
gotolabel 111
endif
if 30 = "l"
displayfile q
gotolabel 112
endif
ifnot 30 = "fake"
:FAKE
display "||"
beep
beep
display " Wrong choise! Please try again..."
pause 2
displayfile q
gotolabel new
endnotif
:
:101
display "7H"
changecolor 15 1
display ".................................."
display "7H"
askedit 34 1
if 1 = ""
beep
gotolabel 101
endif
gotolabel ask
:
:102
display "7H"
changecolor 15 1
display ".................................."
display "7H"
askedit 34 2
if 2 = ""
beep
gotolabel 102
endif
gotolabel ask
:
:103
display "7H"
changecolor 15 1
display ".................................."
display "7H"
askedit 34 3
if 3 = ""
beep
gotolabel 103
endif
gotolabel ask
:
:104
display "7H"
changecolor 15 1
display ".................................."
display "7H"
askedit 34 4
if 4 = ""
beep
gotolabel 104
endif
gotolabel ask
:
:105
display "7H"
changecolor 15 1
display "..."
display "7H"
askedit 34 5
gotolabel ask
:
:106
display "7H"
changecolor 15 1
display ".................................."
display "7H"
askedit 34 6
gotolabel ask
:
:107
display "37H"
changecolor 15 1
display ".................................."
display "37H"
askedit 34 7
gotolabel ask
:
:108
display "37H"
changecolor 15 1
display ".................................."
display "37H"
askedit 34 8
gotolabel ask
:
:109
display "37H"
changecolor 15 1
display ".................................."
display "37H"
askedit 34 9
gotolabel ask
:
:110
display "37H"
changecolor 15 1
display "."
display "37H"
getchoice YN 10
if 10 = "N"
display "2H"
changecolor 15 4
display " "
display "2H"
display " "
endif
if 10 = "Y"
displayfile q-sysop
changecolor 15 1
display "37H"
askedit 34 11
display "37H"
askedit 34 12
endif
gotolabel ask
:
:111
if 10 = "n"
gotolabel fake
endif
:Node Nr
display "37H"
changecolor 15 1
display "..................."
display "37H"
askedit 34 11
gotolabel ask
:
:112
if 10 = "n"
gotolabel fake
endif
:Telefon data
display "37H"
changecolor 15 1
display ".................................."
display "37H"
askedit 34 11
gotolabel ask
:
:cancel
clearscreen
display "|||"
changecolor 14
display "New user registration aborted!|"
changecolor 3
display "|To bad you don't want to register yourself as|"
display "a member... Well, maybe next time!|"
changecolor 7
display "|Press <ENTER> to return"
ask 0 1
start q-new abort
:
:allready
display "7H"
changecolor 15 1
listanswer 1
display "7H"
listanswer 2
display "7H"
listanswer 3
display "7H"
listanswer 4
display "7H"
listanswer 5
display "7H"
listanswer 6
display "37H"
listanswer 7
display "37H"
listanswer 8
display "37H"
listanswer 9
display "37H"
listanswer 10
if 10 = "Y"
displayfile q-sysop
changecolor 15 1
display "37H"
listanswer 11
display "37H"
listanswer 12
endif
: